CD Actual 44/PC Actual CD 44.iso/Linux/Cygwin/full.exe/Disk1/data1.cab/Tools/share/tix4.1/SGrid.tcl

Text File | 1998-12-04 | 5.4 KB | 229 lines

# SGrid.tcl --
#
#    This file implements Scrolled Grid widgets
#
# Copyright (c) 1996, Expert Interface Technologies
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

tixWidgetClass tixScrolledGrid {
    -classname TixScrolledGrid
    -superclass tixScrolledWidget
    -method {
    }
    -flag {
    }
    -configspec {
    }
    -default {
    {.scrollbar            auto}
    {*grid.borderWidth        1}
    {*grid.Background        #c3c3c3}
    {*grid.highlightBackground    #d9d9d9}
    {*grid.relief            sunken}
    {*grid.takeFocus        1}
    {*Scrollbar.background        #d9d9d9}
    {*Scrollbar.troughColor        #c3c3c3}
    {*Scrollbar.takeFocus        0}
    {*Scrollbar.relief        sunken}
    {*Scrollbar.width        15}
    }
}

proc tixScrolledGrid:ConstructWidget {w} {
    upvar #0 $w data

    tixChainMethod $w ConstructWidget

    set data(w:grid) [tixGrid $w.grid]

    set data(w:hsb) \
    [scrollbar $w.hsb -orient horizontal -takefocus 0]
    set data(w:vsb) \
    [scrollbar $w.vsb -orient vertical -takefocus 0]

    set data(pw:client) $data(w:grid)

    pack $data(w:grid) -expand yes -fill both -padx 0 -pady 0
}

proc tixScrolledGrid:SetBindings {w} {
    upvar #0 $w data

    tixChainMethod $w SetBindings

    $data(w:grid) config \
    -xscrollcommand "$data(w:hsb) set"\
    -yscrollcommand "$data(w:vsb) set"\
    -sizecmd "tixScrolledWidget:Configure $w" \
    -formatcmd "tixCallMethod $w FormatCmd"

    $data(w:hsb) config -command "$data(w:grid) xview"
    $data(w:vsb) config -command "$data(w:grid) yview"

    bindtags $data(w:grid) \
    "$data(w:grid) TixSGrid TixGrid [winfo toplevel $data(w:grid)] all"

    tixSetMegaWidget $data(w:grid) $w
}

#----------------------------------------------------------------------
#            RAW event bindings
#----------------------------------------------------------------------
proc tixScrolledGridBind {} {
    tixBind TixScrolledGrid <ButtonPress-1> {
    tixScrolledGrid:Button-1 [tixGetMegaWidget %W] %x %y
    }
    tixBind TixScrolledGrid <Shift-ButtonPress-1> {
    tixScrolledGrid:Shift-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid <Control-ButtonPress-1> {
    tixScrolledGrid:Control-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid <ButtonRelease-1> {
    tixScrolledGrid:ButtonRelease-1 %W %x %y
    }
    tixBind TixScrolledGrid <Double-ButtonPress-1> {
    tixScrolledGrid:Double-1 %W  %x %y
    }
    tixBind TixScrolledGrid <B1-Motion> {
    set tkPriv(x) %x
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Motion> {
    set tkPriv(x) %x
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:Control-B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid <B1-Leave> {
    set tkPriv(x) %x
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:B1-Leave %W
    }
    tixBind TixScrolledGrid <B1-Enter> {
    tixScrolledGrid:B1-Enter %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Leave> {
    set tkPriv(x) %x
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:Control-B1-Leave %W
    }
    tixBind TixScrolledGrid <Control-B1-Enter> {
    tixScrolledGrid:Control-B1-Enter %W %x %y
    }

    # Keyboard bindings
    #
    tixBind TixScrolledGrid <Up> {
    tixScrolledGrid:DirKey %W up
    }
    tixBind TixScrolledGrid <Down> {
    tixScrolledGrid:DirKey %W down
    }
    tixBind TixScrolledGrid <Left> {
    tixScrolledGrid:DirKey %W left
    }
    tixBind TixScrolledGrid <Right> {
    tixScrolledGrid:DirKey %W right
    }
    tixBind TixScrolledGrid <Prior> {
    %W yview scroll -1 pages
    }
    tixBind TixScrolledGrid <Next> {
    %W yview scroll 1 pages
    }
    tixBind TixScrolledGrid <Return> {
    tixScrolledGrid:Return %W
    }
    tixBind TixScrolledGrid <space> {
    tixScrolledGrid:Space %W
    }
}

#----------------------------------------------------------------------
#
#
#             Mouse bindings
#
#
#----------------------------------------------------------------------
proc tixScrolledGrid:Button-1 {w x y} {
    if {[$w cget -state] == "disabled"} {
    return
    }
    if [$w cget -takefocus] {
    focus $w
    }
    case [tixScrolled:GetState $w] {
    {0} {
        tixScrolledGrid:GoState s1 $w $x $y
           }
    {b0} {
        tixScrolledGrid:GoState b1 $w $x $y
           }
    {m0} {
        tixScrolledGrid:GoState m1 $w $x $y
           }
    {e0} {
        tixScrolledGrid:GoState e1 $w $x $y
           }
    }
}



#----------------------------------------------------------------------
#
#        option configs
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#
#        Widget commands
#----------------------------------------------------------------------


#----------------------------------------------------------------------
#
#        Private Methods
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#        Virtual Methods
#----------------------------------------------------------------------
proc tixScrolledGrid:FormatCmd {w area x1 y1 x2 y2} {
    # do nothing
}

#----------------------------------------------------------------------
# virtual functions to query the client window's scroll requirement
#----------------------------------------------------------------------
proc tixScrolledGrid:GeometryInfo {w mW mH} {
    upvar #0 $w data


    if {$mW < 1} {
    set mW 1
    }
    if {$mH < 1} {
    set mH 1
    }

    return [$data(w:grid) geometryinfo $mW $mH]
}